BCI NET 2/BCI NET 2.iso/archives/applications/databases/comicdemo.lha/ComicDemo/ComicDemo.install

Text File | 1994-09-04 | 8.1 KB | 275 lines

;
;    Installationsskript zum Comicverwaltung-Demo
;
;        Andreas Zottmann, 10.7.94
;
;
(welcome "Comic-Verwaltung-Demo Installation")

(if
    (=
        (askchoice
            (prompt "\n What language do you want to use ?\n\n"
                    "Welche Sprache wünschen Sie ?\n")
        (help "\n Select the language you want to use in the program.\n\n"
              "Wählen Sie die Sprache, die sie im Programm verwenden "
              "wollen.")
        (choices "english" "deutsch")
        (default 1)
    )
    1
    )
    (set @language "deutsch")
)

(set englisch ( = @language "english") )

(if englisch
    (
        ; Betriebsystemversion testen

        (set OS (/ (getversion ) 65536 ) )
        (if  (< OS 36)
             (
               (set Antwort
                  (askbool
                      (prompt "OS 2.0 or more is needed.\n"
                              "Do you want to install the program inspite\n"
                              "of that ?\n"
                      )
                      (choices "Yes" "No")
                      (default 1)
                      (help
                         "The program needs OS 2.0 or higher, but the number\n"
                         "of your operating system is too small, so you\n"
                         "can't use the program.\n"
                         "You should abort the installation.\n"
                      )
                  )
               )
               (if (= 0 Antwort)
                 (   ; abbrechen
                   (abort    "Installation aborted because OS 2.0 needed.")
                 )
               )
             )
        )
        (set dir
            (askdir
                (prompt "Select a directory for the program.")
                (help   "Select a directory / drawer in which the program\n"
                        "and the documentation shall be installed.\n"
                )
                (default "work:")
            )
        )
        (set dir (tackon dir "comic"))
        (set @default-dir dir)
        (set @default-dest dir)

        (copyfiles
            (prompt "copy directory 'english'")
            (source "english")
            (dest   dir)
            (infos)
            (all)
        )
        (set screen
             (askchoice
                 (prompt "What screenmode do you want to use ?")
                 (choices "PAL" "NTSC")
                 (help    "The selected mode will be the default mode "
                          " for the program and can be changed later.\n"
                          "PAL is recommended.\n"
                          "(If the selected mode is not available on "
                          "your system, the default screen will be "
                          "used.)"
                 )
                 (default  0)
             )
        )
        ; Tooltype setzen
        (if ( = screen 1)
            (
                (set DateiName (tackon dir "comicDemo"))
                (tooltype
                    (dest DateiName)
                    (settooltype "NTSC" "")
                )
            )
        )

        ; alle fonts kopieren, wenn sie noch nicht vorhanden waren
        (if (NOT (exists "fonts:opal.font"))
          (
           (copyfiles
                (source "fonts/opal.font")
                (dest   "fonts:")
           )
          )
        )
        (copylib
            (prompt "copy Opal fonts")
            (source "fonts/Opal/12")
            (dest   "fonts:Opal")
        )
        (copylib
            (source "fonts/Opal/9")
            (dest   "fonts:Opal")
        )
        (if (NOT (exists "fonts:CGTimes.font"))
            (copyfiles
                (source "fonts/CGTimes.font")
                (dest   "fonts:")
            )
        )
        (if (NOT (exists "fonts:CGTimes/30"))
            (copyfiles
                (prompt "copy CGTimes fonts")
                (source "fonts/CGTimes/30")
                (dest   "fonts:CGTimes")
            )
        )
        (if (NOT (exists "fonts:CGTimes/23"))
            (copyfiles
                (source "fonts/CGTimes/23")
                (dest   "fonts:CGTimes")
            )
        )

    )

    (
        ; Betriebsystemversion testen

        (set OS (/ (getversion ) 65536 ) )
        (if  (< OS 36)
             (
               (set Antwort
                  (askbool
                      (prompt "Es wird mindestens OS 2.0 benötigt\n"
                              "Wollen Sie das Programm trotzdem installieren ?"
                      )
                      (choices "Ja" "Nein")
                      (default 1)
                      (help
                          "Das Programm benötigt OS 2.0 oder höher.\n"
                          "Ihre Betriebssystemversion ist zu gering, so daß\n"
                          "Sie das Programm nicht verwenden können.\n"
                          "Sie sollten es also nicht installieren.\n"
                      )
                  )
               )
               (if (= 0 Antwort)
                   (   ; abbrechen
                       (abort   "Installation wurde abgebrochen wegen\n"
                                "zu niedriger Betriegssystemversion.\n"
                       )
                   )
               )
             )
        )
        (set dir
            (askdir
                (prompt "Verzeichnis für das Programm wählen")
                (help   "\n Wählen Sie bitte ein Verzeichnis, in dem "
                        "das Programm und die Dokumentation "
                        "installiert werden sollen. "
                )
                (default "work:")
            )
        )
        (set dir (tackon dir "comic"))
        (set @default-dir dir)
        (set @default-dest dir)

        (copyfiles
            (prompt "kopiere das Verzeichnis 'deutsch'")
            (source "deutsch")
            (dest   dir)
            (infos)
            (all)
        )
        (set screen
             (askchoice
                 (prompt "\nWelchen Bildschirmmodus möchten Sie verwenden ?\n")
                 (choices "PAL" "NTSC")
                 (help    "Der hier gewählte Bildschirmmodus wird als "
                          "Vorgabe für das Programm verwendet und kann "
                          "später jederzeit geändert werden.\n"
                          "Empfohlen wird PAL.\n"
                          "(Falls der hier gewählte Modus auf Ihrem "
                          "System nicht verfügbar ist, so wird der "
                          "Standardbildschirm verwendet.)"
                 )
                 (default  0)
             )
        )
        ; Tooltype setzen

        (if ( = screen 1)
            (
                (set DateiName (tackon dir "comicDemo"))
                (tooltype
                    (dest DateiName)
                    (settooltype "NTSC" "")
                )
            )
        )

        ; alle fonts kopieren, wenn sie noch nicht vorhanden waren
        (if (NOT (exists "fonts:opal.font"))
          (
           (copyfiles
                (source "fonts/opal.font")
                (dest   "fonts:")
           )
          )
        )
        (copylib
            (prompt "kopiere Opal Fonts")
            (source "fonts/Opal/12")
            (dest   "fonts:Opal")
        )
        (copylib
            (source "fonts/Opal/9")
            (dest   "fonts:Opal")
        )
        (if (NOT (exists "fonts:CGTimes.font"))
            (copyfiles
                (source "fonts/CGTimes.font")
                (dest   "fonts:")
            )
        )
        (if (NOT (exists "fonts:CGTimes/30"))
            (copyfiles
                (prompt "kopiere CGTimes Fonts")
                (source "fonts/CGTimes/30")
                (dest   "fonts:CGTimes")
            )
        )
        (if (NOT (exists "fonts:CGTimes/23"))
            (copyfiles
                (source "fonts/CGTimes/23")
                (dest   "fonts:CGTimes")
            )
        )

    )
)


(if (= @user-level 0)
    (set Meldung
        (cat
           "Das Demo von Comic-Verwaltung wurde auf work: installiert.\n\n"
           "The demo of Comic-Verwaltung (german) is installed to "
           "work: . If you want the englisch version don't use 'novice' "
           "for installation."
        )
    )
    (set Meldung "")
)

(exit Meldung)